u n i t   U n i t 1 ; 
 
 
 
 i n t e r f a c e 
 
 
 
 u s e s 
 
     W i n d o w s ,   M e s s a g e s ,   S y s U t i l s ,   V a r i a n t s ,   C l a s s e s ,   G r a p h i c s ,   C o n t r o l s ,   F o r m s , 
 
     D i a l o g s ,   B u t t o n s ,   S t d C t r l s ,   D B C t r l s ,   E x t D l g s ; 
 
 
 
 t y p e 
 
     T F o r m 1   =   c l a s s ( T F o r m ) 
 
         L a b e l 1 :   T L a b e l ; 
 
         S p e e d B u t t o n 1 :   T S p e e d B u t t o n ; 
 
         S a v e D i a l o g 1 :   T S a v e D i a l o g ; 
 
         M e m o 1 :   T M e m o ; 
 
         M e m o 2 :   T M e m o ; 
 
         B u t t o n 1 :   T B u t t o n ; 
 
         S p e e d B u t t o n 2 :   T S p e e d B u t t o n ; 
 
         O p e n D i a l o g 1 :   T O p e n D i a l o g ; 
 
         L a b e l 2 :   T L a b e l ; 
 
         S p e e d B u t t o n 3 :   T S p e e d B u t t o n ; 
 
         p r o c e d u r e   S p e e d B u t t o n 1 C l i c k ( S e n d e r :   T O b j e c t ) ; 
 
         p r o c e d u r e   B u t t o n 1 C l i c k ( S e n d e r :   T O b j e c t ) ; 
 
         p r o c e d u r e   S p e e d B u t t o n 2 C l i c k ( S e n d e r :   T O b j e c t ) ; 
 
         p r o c e d u r e   S p e e d B u t t o n 3 C l i c k ( S e n d e r :   T O b j e c t ) ; 
 
     p r i v a t e 
 
         {   P r i v a t e   d e c l a r a t i o n s   } 
 
     p u b l i c 
 
         {   P u b l i c   d e c l a r a t i o n s   } 
 
     e n d ; 
 
 
 
 v a r 
 
     F o r m 1 :   T F o r m 1 ; 
 
     o r i g e n : b o o l e a n ; 
 
 i m p l e m e n t a t i o n 
 
 
 
 { $ R   * . d f m } 
 
 
 
 p r o c e d u r e   T F o r m 1 . S p e e d B u t t o n 1 C l i c k ( S e n d e r :   T O b j e c t ) ; 
 
 v a r 
 
 a r : t e x t f i l e ; 
 
 i , j : i n t e g e r ; 
 
 s e g u i r : b o o l e a n ; 
 
 g , h : s t r i n g ; 
 
 b e g i n 
 
 i f   ( m e m o 2 . L i n e s . C o u n t = 0 )   t h e n 
 
     i f   s a v e d i a l o g 1 . e x e c u t e   t h e n 
 
         b e g i n 
 
             a s s i g n f i l e ( a r , s a v e d i a l o g 1 . F i l e N a m e + ' . t x t ' ) ; 
 
             r e w r i t e ( a r ) ; 
 
             f o r   j : = 0   t o   m e m o 1 . L i n e s . C o u n t - 1   d o 
 
                 b e g i n 
 
                     g : = ' ' ; 
 
                     h : = m e m o 1 . L i n e s [ j ] ; 
 
                     s e g u i r : = t r u e ; 
 
                     i f   ( h < > ' ' ) t h e n 
 
                         b e g i n 
 
                             f o r   i : = 1   t o   l e n g t h ( h )   d o 
 
                                 b e g i n 
 
                                     i f   ( ( ( h [ i ] < > '   ' ) a n d ( h [ i ] < > ' , ' ) a n d ( h [ i ] < > ' ; ' ) ) a n d   s e g u i r = t r u e )   t h e n 
 
                                         g : = g + h [ i ] 
 
                                     e l s e 
 
                                         i f   ( h [ i ] = ' ; ' ) t h e n 
 
                                             s e g u i r : = f a l s e ; 
 
                                 e n d ; 
 
                             w r i t e l n ( a r , g ) ; 
 
                         e n d ; 
 
                 e n d ; 
 
             c l o s e f i l e ( a r ) ; 
 
         e n d ; 
 
 e n d ; 
 
 
 
 p r o c e d u r e   T F o r m 1 . B u t t o n 1 C l i c k ( S e n d e r :   T O b j e c t ) ; 
 
 v a r 
 
     i , j , k , l , m :   i n t e g e r ; 
 
     i n s t r u c c i o n , e t i k e t a , p a r a m e t e r , c o n t i n u e : b o o l e a n ; 
 
     s : s t r i n g ; 
 
     i n s t r u c : s t r i n g ; 
 
     p a r a m e t r o s , p a r a m e t r o s 2 , p 1 , p 2 : s t r i n g ; 
 
     e t i k e t a S : a r r a y [ 1 . . 5 0 0 ]   o f   s t r i n g ; 
 
     c o n t E t i k e t a s : i n t e g e r ; 
 
 b e g i n 
 
 m e m o 2 . L i n e s . C l e a r ; 
 
 o r i g e n : = t r u e ;   
 
 i : = 0 ; 
 
 w h i l e   ( ( i < m e m o 1 . L i n e s . C o u n t - 1 )   a n d   ( m e m o 1 . L i n e s [ i ] = ' ' ) ) d o   
 
         i : = i + 1 ; 
 
 i n s t r u c : = ' ' ; i n s t r u c c i o n : = f a l s e ; 
 
 s : = m e m o 1 . L i n e s [ i ] ; 
 
 f o r   j : = 1   t o   l e n g t h ( s )   d o 
 
     b e g i n 
 
             i f ( s [ j ] < > '   ' ) a n d   ( i n s t r u c c i o n = f a l s e )   t h e n 
 
                 i n s t r u c : = i n s t r u c + s [ j ] 
 
             e l s e 
 
                 i n s t r u c c i o n : = t r u e ; 
 
             i f ( ( i n s t r u c c i o n = t r u e ) )   t h e n 
 
                 p a r a m e t r o s : = p a r a m e t r o s + s [ j ] ; 
 
     e n d ; 
 
 i f   ( ( i n s t r u c < > ' o r i g ' ) o r ( p a r a m e t r o s [ 2 ] < > ' [ ' ) o r ( p a r a m e t r o s [ l e n g t h ( p a r a m e t r o s ) ] < > ' ] ' ) ) t h e n 
 
     o r i g e n : = f a l s e ; 
 
 m : = i + 1 ; 
 
 i f   o r i g e n = t r u e   t h e n 
 
 b e g i n 
 
     c o n t E t i k e t a s : = 0 ; 
 
     f o r   i : = m   t o   m e m o 1 . L i n e s . C o u n t - 1   d o 
 
     b e g i n 
 
         s : = m e m o 1 . L i n e s [ i ] ; i n s t r u c : = ' ' ;   i n s t r u c c i o n : = f a l s e ;   p a r a m e t r o s : = ' ' ; 
 
         i f   ( s < > ' ' )   t h e n 
 
             b e g i n 
 
                 f o r   j : = 1   t o   l e n g t h ( s )   d o 
 
                     b e g i n 
 
                         i f ( s [ j ] < > '   ' ) a n d   ( i n s t r u c c i o n = f a l s e )   t h e n 
 
                             i n s t r u c : = i n s t r u c + s [ j ] 
 
                         e l s e 
 
                             i n s t r u c c i o n : = t r u e ; 
 
                         i f ( ( i n s t r u c c i o n = t r u e ) )   t h e n 
 
                             p a r a m e t r o s : = p a r a m e t r o s + s [ j ] ; 
 
                     e n d ; 
 
                 i f   ( i n s t r u c < > '   ' ) t h e n 
 
                     i f ( ( i n s t r u c < > ' a s k ' ) a n d ( i n s t r u c < > ' m o v ' ) a n d   ( i n s t r u c < > ' i n c ' ) a n d   ( i n s t r u c < > ' j z ' ) a n d   ( i n s t r u c < > ' j c ' ) a n d   ( i n s t r u c < > ' j n c ' ) a n d   ( i n s t r u c < > ' a d d ' ) a n d   ( i n s t r u c < > ' j m p ' ) a n d   ( i n s t r u c < > ' s u b ' ) a n d   ( i n s t r u c < > ' r e t ' ) a n d   ( i n s t r u c < > ' i n t ' ) a n d   ( i n s t r u c < > ' c m p ' ) a n d   ( i n s t r u c < > ' j l ' ) a n d   ( i n s t r u c < > ' m s g ' )   a n d   ( i n s t r u c < > ' ; ' ) )   t h e n 
 
                         b e g i n 
 
                             i f   ( i n s t r u c = ' m s g ' )   t h e n 
 
                                 b e g i n 
 
                                     p a r a m e t e r : = f a l s e ;   p 1 : = ' ' ; p 2 : = ' ' ; c o n t i n u e : = t r u e ; 
 
                                     f o r   l : = 2   t o   l e n g t h ( p a r a m e t r o s )   d o 
 
                                         b e g i n 
 
                                             i f   ( ( c o n t i n u e = t r u e )   a n d   ( p a r a m e t e r = f a l s e )   a n d   ( p a r a m e t r o s [ l ] < > '   ' )   a n d   ( p a r a m e t r o s [ l ] < > ' , ' )   a n d   ( p a r a m e t r o s [ l ] < > ' ; ' ) )   t h e n 
 
                                                 p 1 : = p 1 + p a r a m e t r o s [ l ] 
 
                                             e l s e 
 
                                                 i f ( p a r a m e t r o s [ l ] = ' ; ' )   t h e n 
 
                                                     c o n t i n u e : = f a l s e 
 
                                                 e l s e 
 
                                                     p a r a m e t e r : = t r u e ; 
 
                                                 i f   ( ( c o n t i n u e = t r u e ) a n d ( p a r a m e t e r = t r u e )   a n d   ( p a r a m e t r o s [ l ] < > '   ' )   a n d   ( p a r a m e t r o s [ l ] < > ' , ' ) a n d   ( p a r a m e t r o s [ l ] < > ' ; ' ) )   t h e n 
 
                                                     p 2 : = p 2 + p a r a m e t r o s [ l ] 
 
                                                 e l s e 
 
                                                     i f ( p a r a m e t r o s [ l ] = ' ; ' )   t h e n 
 
                                                         c o n t i n u e : = f a l s e 
 
                                         e n d ; 
 
                                         i f   n o t ( p 1 [ 1 ]   i n   [ ' a ' , ' b ' , ' c ' , ' d ' , ' e ' , ' f ' , ' g ' , ' h ' , ' i ' , ' j ' , ' k ' , ' l ' , ' m ' , ' n ' , ' o ' , ' p ' , ' q ' , ' r ' , ' s ' , ' t ' , ' u ' , ' v ' , ' w ' , ' x ' , ' y ' , ' z ' ] ) t h e n 
 
                                             m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) ) 
 
                                         e l s e 
 
                                             i f   n o t ( ( p 2 [ 1 ] = ' " ' ) a n d   ( p 2 [ l e n g t h ( p 2 ) - 1 ] < > ' " ' ) ) t h e n 
 
                                                 m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) ) 
 
                                             e l s e 
 
                                                 b e g i n 
 
                                                     e t i k e t a S [ c o n t E t i k e t a s ] : =   p 1 ; 
 
                                                     c o n t E t i k e t a s : = c o n t E t i k e t a s + 1 ; 
 
                                                 e n d ; 
 
                                 e n d 
 
                     e l s e 
 
                         e t i k e t a S [ c o n t E t i k e t a s ] : = i n s t r u c ; 
 
                 c o n t E t i k e t a s : = c o n t E t i k e t a s + 1 ; 
 
             e n d ; 
 
         e n d ; 
 
     e n d ; 
 
 
 
 f o r   i : = m   t o   m e m o 1 . L i n e s . C o u n t - 1   d o 
 
     b e g i n 
 
         i n s t r u c : = ' ' ;     i n s t r u c c i o n : = f a l s e ;     e t i k e t a : = f a l s e ;     p a r a m e t r o s : = ' ' ; p a r a m e t r o s 2 : = ' ' ; 
 
         s : = m e m o 1 . L i n e s [ i ] ; 
 
         i f   ( l e n g t h ( s ) < > 0 ) t h e n 
 
             b e g i n 
 
                 f o r   j : = 1   t o   l e n g t h ( s )   d o 
 
                     b e g i n 
 
                         i f ( s [ j ] < > '   ' ) a n d   ( i n s t r u c c i o n = f a l s e )   t h e n 
 
                       	     b e g i n 
 
                                 i n s t r u c : = i n s t r u c + s [ j ] ; 
 
                       	     e n d 
 
                         e l s e 
 
                             i n s t r u c c i o n : = t r u e ; 
 
                       	 i f ( ( i n s t r u c c i o n = t r u e ) )   t h e n 
 
                             p a r a m e t r o s : = p a r a m e t r o s + s [ j ] ; 
 
             	 	 e n d ; 
 
                 i f   ( i n s t r u c = ' a s k ' )   t h e n   / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * A S K 
 
                     b e g i n 
 
                         p a r a m e t e r : = f a l s e ;   p 1 : = ' ' ; p 2 : = ' ' ; c o n t i n u e : = t r u e ; 
 
                                             f o r   l : = 2   t o   l e n g t h ( p a r a m e t r o s )   d o 
 
                                             b e g i n 
 
                                                 i f   ( ( c o n t i n u e = t r u e )   a n d   ( p a r a m e t e r = f a l s e )   a n d   ( p a r a m e t r o s [ l ] < > '   ' )   a n d   ( p a r a m e t r o s [ l ] < > ' , ' )   a n d   ( p a r a m e t r o s [ l ] < > ' ; ' ) )   t h e n 
 
                                                     p 1 : = p 1 + p a r a m e t r o s [ l ] 
 
                                                 e l s e 
 
                                                     i f ( p a r a m e t r o s [ l ] = ' ; ' )   t h e n 
 
                                                         c o n t i n u e : = f a l s e 
 
                                                     e l s e 
 
                                                         p a r a m e t e r : = t r u e ; 
 
                                                 i f   ( ( c o n t i n u e = t r u e ) a n d ( p a r a m e t e r = t r u e )   a n d   ( p a r a m e t r o s [ l ] < > '   ' ) a n d ( p a r a m e t r o s [ l ] < > ' ; ' ) )   t h e n 
 
                                                     p 2 : = p 2 + p a r a m e t r o s [ l ] 
 
                                                 e l s e 
 
                                                     i f ( p a r a m e t r o s [ l ] = ' ; ' )   t h e n 
 
                                                         c o n t i n u e : = f a l s e 
 
                                             e n d ; 
 
                                             i f   n o t ( ( p 1 [ 1 ]   i n   [ ' a ' , ' b ' , ' c ' , ' d ' ] )   a n d   ( p 1 [ 2 ] = ' x ' ) ) t h e n 
 
                                                 m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) ) ; 
 
 
 
                                             i f   ( p 2 < > ' ' )   t h e n 
 
                                                     m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                     e n d   e l s e 
 
                 i f   ( i n s t r u c = ' m o v ' )   t h e n   / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * M O V E 
 
                     b e g i n 
 
                         p a r a m e t e r : = f a l s e ;   p 1 : = ' ' ; p 2 : = ' ' ; c o n t i n u e : = t r u e ; 
 
                         f o r   l : = 2   t o   l e n g t h ( p a r a m e t r o s )   d o 
 
                             b e g i n 
 
                                 i f   ( ( c o n t i n u e = t r u e )   a n d   ( p a r a m e t e r = f a l s e )   a n d   ( p a r a m e t r o s [ l ] < > '   ' )   a n d   ( p a r a m e t r o s [ l ] < > ' , ' )   a n d   ( p a r a m e t r o s [ l ] < > ' ; ' ) )   t h e n 
 
                                     p 1 : = p 1 + p a r a m e t r o s [ l ] 
 
                                 e l s e 
 
                                     i f ( p a r a m e t r o s [ l ] = ' ; ' )   t h e n 
 
                                         c o n t i n u e : = f a l s e 
 
                                     e l s e 
 
                                         p a r a m e t e r : = t r u e ; 
 
                                 i f   ( ( c o n t i n u e = t r u e ) a n d ( p a r a m e t e r = t r u e )   a n d   ( p a r a m e t r o s [ l ] < > '   ' )   a n d   ( p a r a m e t r o s [ l ] < > ' , ' ) a n d   ( p a r a m e t r o s [ l ] < > ' ; ' ) )   t h e n 
 
                                     p 2 : = p 2 + p a r a m e t r o s [ l ] 
 
                                 e l s e 
 
                                     i f ( p a r a m e t r o s [ l ] = ' ; ' )   t h e n 
 
                                         c o n t i n u e : = f a l s e 
 
                             e n d ; 
 
                         i f   n o t ( ( ( p 1 [ 1 ]   i n   [ ' a ' , ' b ' , ' c ' , ' d ' ] )   a n d   ( p 1 [ 2 ] = ' x ' ) ) o r   ( p 1 [ 1 ] = ' [ ' ) ) t h e n 
 
                             m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) ) ; 
 
                         i f   n o t ( ( p 2 [ 1 ]   i n   [ ' 1 ' , ' 2 ' , ' 3 ' , ' 4 ' , ' 5 ' , ' 6 ' , ' 7 ' , ' 8 ' , ' 9 ' , ' 0 ' , ' [ ' , ' a ' , ' b ' , ' c ' , ' d ' ] ) ) t h e n 
 
                             m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i ) )   ; 
 
                         i f   ( p 2 [ 1 ]   i n   [ ' a ' , ' b ' , ' c ' , ' d ' ] )   t h e n 
 
                             i f   n o t ( p 2 [ 2 ] = ' x ' )   t h e n 
 
                                 m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                     e n d   e l s e 
 
                 	     i f   ( i n s t r u c = ' j z ' )   t h e n   / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * J Z 
 
                       	     b e g i n 
 
                                 p 1 : = ' ' ;   c o n t i n u e : = f a l s e ;       p 2 : = ' n ' ; 
 
                                 f o r   l : = 2   t o   l e n g t h ( p a r a m e t r o s )   d o 
 
                                     i f ( p a r a m e t r o s [ l ] < > ' ' )   t h e n 
 
                                         i f   c o n t i n u e = f a l s e   t h e n 
 
                                             p 1 : = p 1 + p a r a m e t r o s [ l ] 
 
                                         e l s e 
 
                                             p 2 : = ' e ' 
 
                                     e l s e   c o n t i n u e : = t r u e ; 
 
                                 l a b e l 1 . C a p t i o n : = p 1 ; 
 
                                 i f   p 2 = ' e '   t h e n 
 
                                     m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                                 f o r   l : = 0   t o   c o n t E t i k e t a s   d o 
 
                                     i f   e t i k e t a S [ l ] = p 1   t h e n 
 
                                         p 2 : = ' y ' ; 
 
                                     i f   p 2 < > ' y '   t h e n 
 
                                         m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                             e n d   e l s e 
 
                         i f   ( i n s t r u c = ' j c ' )   t h e n               / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * J C 
 
                             b e g i n 
 
                                 p 1 : = ' ' ;   c o n t i n u e : = f a l s e ;       p 2 : = ' n ' ; 
 
                                 f o r   l : = 2   t o   l e n g t h ( p a r a m e t r o s )   d o 
 
                                     i f ( p a r a m e t r o s [ l ] < > ' ' )   t h e n 
 
                                         i f   c o n t i n u e = f a l s e   t h e n 
 
                                             p 1 : = p 1 + p a r a m e t r o s [ l ] 
 
                                         e l s e 
 
                                             p 2 : = ' e ' 
 
                                     e l s e   c o n t i n u e : = t r u e ; 
 
                                     l a b e l 1 . C a p t i o n : = p 1 ; 
 
                                     i f   p 2 = ' e '   t h e n 
 
                                         m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                                     f o r   l : = 0   t o   c o n t E t i k e t a s   d o 
 
                                         i f   e t i k e t a S [ l ] = p 1   t h e n 
 
                                             p 2 : = ' y ' ; 
 
                                     i f   p 2 < > ' y '   t h e n 
 
                                         m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                                     e n d   e l s e 
 
                   	 	   i f   ( i n s t r u c = ' j n c ' )   t h e n     / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * J N C 
 
                       	 	 	   b e g i n 
 
                                   p 1 : = ' ' ;   c o n t i n u e : = f a l s e ;       p 2 : = ' n ' ; 
 
                                     f o r   l : = 2   t o   l e n g t h ( p a r a m e t r o s )   d o 
 
                                         i f ( p a r a m e t r o s [ l ] < > ' ' )   t h e n 
 
                                             i f   c o n t i n u e = f a l s e   t h e n 
 
                                                 p 1 : = p 1 + p a r a m e t r o s [ l ] 
 
                                             e l s e 
 
                                                 p 2 : = ' e ' 
 
                                         e l s e   c o n t i n u e : = t r u e ; 
 
                                     i f   p 2 = ' e '   t h e n 
 
                                         m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                                     f o r   l : = 0   t o   c o n t E t i k e t a s   d o 
 
                                         i f   e t i k e t a S [ l ] = p 1   t h e n 
 
                                             p 2 : = ' y ' ; 
 
                                     i f   p 2 < > ' y '   t h e n 
 
                                         m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                                   e n d   e l s e 
 
                 	 	     i f   ( i n s t r u c = ' a d d ' )   t h e n         / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * A D D 
 
                         	 	 	 b e g i n 
 
                                         p a r a m e t e r : = f a l s e ;   p 1 : = ' ' ; p 2 : = ' ' ; c o n t i n u e : = t r u e ; 
 
                                             f o r   l : = 2   t o   l e n g t h ( p a r a m e t r o s )   d o 
 
                                             b e g i n 
 
                                                 i f   ( ( c o n t i n u e = t r u e )   a n d   ( p a r a m e t e r = f a l s e )   a n d   ( p a r a m e t r o s [ l ] < > '   ' )   a n d   ( p a r a m e t r o s [ l ] < > ' , ' )   a n d   ( p a r a m e t r o s [ l ] < > ' ; ' ) )   t h e n 
 
                                                     p 1 : = p 1 + p a r a m e t r o s [ l ] 
 
                                                 e l s e 
 
                                                     i f ( p a r a m e t r o s [ l ] = ' ; ' )   t h e n 
 
                                                         c o n t i n u e : = f a l s e 
 
                                                     e l s e 
 
                                                         p a r a m e t e r : = t r u e ; 
 
                                                 i f   ( ( c o n t i n u e = t r u e ) a n d ( p a r a m e t e r = t r u e )   a n d   ( p a r a m e t r o s [ l ] < > '   ' )   a n d   ( p a r a m e t r o s [ l ] < > ' , ' ) a n d   ( p a r a m e t r o s [ l ] < > ' ; ' ) )   t h e n 
 
                                                     p 2 : = p 2 + p a r a m e t r o s [ l ] 
 
                                                 e l s e 
 
                                                     i f ( p a r a m e t r o s [ l ] = ' ; ' )   t h e n 
 
                                                         c o n t i n u e : = f a l s e 
 
                                             e n d ; 
 
                                             i f   n o t ( ( ( p 1 [ 1 ]   i n   [ ' a ' , ' b ' , ' c ' , ' d ' ] )   a n d   ( p 1 [ 2 ] = ' x ' ) ) o r   ( p 1 [ 1 ] = ' [ ' ) ) t h e n 
 
                                                 m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) ) ; 
 
 
 
                                             i f   n o t ( ( p 2 [ 1 ]   i n   [ ' 1 ' , ' 2 ' , ' 3 ' , ' 4 ' , ' 5 ' , ' 6 ' , ' 7 ' , ' 8 ' , ' 9 ' , ' 0 ' , ' [ ' , ' a ' , ' b ' , ' c ' , ' d ' ] ) ) t h e n 
 
                                                     m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i ) )   ; 
 
                                             i f   ( p 2 [ 1 ]   i n   [ ' a ' , ' b ' , ' c ' , ' d ' ] )   t h e n 
 
                                                 i f   n o t ( p 2 [ 2 ] = ' x ' )   t h e n 
 
                                                     m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                                     e n d   e l s e 
 
                 	 	     i f   ( i n s t r u c = ' j m p ' )   t h e n                     / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * J M P 
 
                         	 	 	 b e g i n 
 
                                     p 1 : = ' ' ;   c o n t i n u e : = f a l s e ;       p 2 : = ' n ' ; 
 
                                     f o r   l : = 2   t o   l e n g t h ( p a r a m e t r o s )   d o 
 
                                         i f ( p a r a m e t r o s [ l ] < > ' ' )   t h e n 
 
                                             i f   c o n t i n u e = f a l s e   t h e n 
 
                                                 p 1 : = p 1 + p a r a m e t r o s [ l ] 
 
                                             e l s e 
 
                                                 p 2 : = ' e ' 
 
                                         e l s e   c o n t i n u e : = t r u e ; 
 
                                     i f   p 2 = ' e '   t h e n 
 
                                         m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                                     f o r   l : = 0   t o   c o n t E t i k e t a s   d o 
 
                                         i f   e t i k e t a S [ l ] = p 1   t h e n 
 
                                             p 2 : = ' y ' ; 
 
                                     i f   p 2 < > ' y '   t h e n 
 
                                         m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                                     e n d   e l s e 
 
               	 	       i f   ( i n s t r u c = ' s u b ' )   t h e n           / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * S U B 
 
                         	 	 	 b e g i n 
 
                                         p a r a m e t e r : = f a l s e ;   p 1 : = ' ' ; p 2 : = ' ' ; c o n t i n u e : = t r u e ; 
 
                                             f o r   l : = 2   t o   l e n g t h ( p a r a m e t r o s )   d o 
 
                                             b e g i n 
 
                                                 i f   ( ( c o n t i n u e = t r u e )   a n d   ( p a r a m e t e r = f a l s e )   a n d   ( p a r a m e t r o s [ l ] < > '   ' )   a n d   ( p a r a m e t r o s [ l ] < > ' , ' )   a n d   ( p a r a m e t r o s [ l ] < > ' ; ' ) )   t h e n 
 
                                                     p 1 : = p 1 + p a r a m e t r o s [ l ] 
 
                                                 e l s e 
 
                                                     i f ( p a r a m e t r o s [ l ] = ' ; ' )   t h e n 
 
                                                         c o n t i n u e : = f a l s e 
 
                                                     e l s e 
 
                                                         p a r a m e t e r : = t r u e ; 
 
                                                 i f   ( ( c o n t i n u e = t r u e ) a n d ( p a r a m e t e r = t r u e )   a n d   ( p a r a m e t r o s [ l ] < > '   ' )   a n d   ( p a r a m e t r o s [ l ] < > ' , ' ) a n d   ( p a r a m e t r o s [ l ] < > ' ; ' ) )   t h e n 
 
                                                     p 2 : = p 2 + p a r a m e t r o s [ l ] 
 
                                                 e l s e 
 
                                                     i f ( p a r a m e t r o s [ l ] = ' ; ' )   t h e n 
 
                                                         c o n t i n u e : = f a l s e 
 
                                             e n d ; 
 
                                             i f   n o t ( ( ( p 1 [ 1 ]   i n   [ ' a ' , ' b ' , ' c ' , ' d ' ] )   a n d   ( p 1 [ 2 ] = ' x ' ) ) o r   ( p 1 [ 1 ] = ' [ ' ) ) t h e n 
 
                                                 m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) ) ; 
 
 
 
                                             i f   n o t ( ( p 2 [ 1 ]   i n   [ ' 1 ' , ' 2 ' , ' 3 ' , ' 4 ' , ' 5 ' , ' 6 ' , ' 7 ' , ' 8 ' , ' 9 ' , ' 0 ' , ' [ ' , ' a ' , ' b ' , ' c ' , ' d ' ] ) ) t h e n 
 
                                                     m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i ) )   ; 
 
                                             i f   ( p 2 [ 1 ]   i n   [ ' a ' , ' b ' , ' c ' , ' d ' ] )   t h e n 
 
                                                 i f   n o t ( p 2 [ 2 ] = ' x ' )   t h e n 
 
                                                     m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                                     e n d   e l s e 
 
                   	 	   i f   ( i n s t r u c = ' i n c ' )   t h e n     / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * I N C 
 
                       	 	 	   b e g i n 
 
                                   p a r a m e t e r : = f a l s e ;   p 1 : = ' ' ; p 2 : = ' ' ; c o n t i n u e : = t r u e ; 
 
                                             f o r   l : = 2   t o   l e n g t h ( p a r a m e t r o s )   d o 
 
                                             b e g i n 
 
                                                 i f   ( ( c o n t i n u e = t r u e )   a n d   ( p a r a m e t e r = f a l s e )   a n d   ( p a r a m e t r o s [ l ] < > '   ' )   a n d   ( p a r a m e t r o s [ l ] < > ' , ' )   a n d   ( p a r a m e t r o s [ l ] < > ' ; ' ) )   t h e n 
 
                                                     p 1 : = p 1 + p a r a m e t r o s [ l ] 
 
                                                 e l s e 
 
                                                     i f ( p a r a m e t r o s [ l ] = ' ; ' )   t h e n 
 
                                                         c o n t i n u e : = f a l s e 
 
                                                     e l s e 
 
                                                         p a r a m e t e r : = t r u e ; 
 
                                                 i f   ( ( c o n t i n u e = t r u e ) a n d ( p a r a m e t e r = t r u e )   a n d   ( p a r a m e t r o s [ l ] < > '   ' ) a n d ( p a r a m e t r o s [ l ] < > ' ; ' ) )   t h e n 
 
                                                     p 2 : = p 2 + p a r a m e t r o s [ l ] 
 
                                                 e l s e 
 
                                                     i f ( p a r a m e t r o s [ l ] = ' ; ' )   t h e n 
 
                                                         c o n t i n u e : = f a l s e 
 
                                             e n d ; 
 
                                             i f   n o t ( ( p 1 [ 1 ]   i n   [ ' a ' , ' b ' , ' c ' , ' d ' ] )   a n d   ( p 1 [ 2 ] = ' x ' ) ) t h e n 
 
                                                 m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) ) ; 
 
 
 
                                             i f   ( p 2 < > ' ' )   t h e n 
 
                                                     m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                                   e n d   e l s e 
 
                   	 	   i f   ( i n s t r u c = ' r e t ' )   t h e n       / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * R E T 
 
                         	 	 	 b e g i n 
 
                                     p 1 : = ' e ' ; 
 
                                     i f   ( p a r a m e t r o s = ' ' ) t h e n 
 
                                         p 1 : = ' y ' ; 
 
                                     i f   ( p 1 = ' e ' ) t h e n 
 
                                         i f ( p a r a m e t r o s [ 2 ] < > ' ; ' )   t h e n 
 
                                             m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) ) ; 
 
                                     e n d   e l s e 
 
                           i f   ( i n s t r u c = ' e n d ' )   t h e n       / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * E N D 
 
                         	 	 	 b e g i n 
 
                                     p 1 : = ' e ' ; 
 
                                     i f   ( p a r a m e t r o s = ' ' ) t h e n 
 
                                         p 1 : = ' y ' ; 
 
                                     i f   ( p 1 = ' e ' ) t h e n 
 
                                         i f ( p a r a m e t r o s [ 2 ] < > ' ; ' )   t h e n 
 
                                             m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) ) ; 
 
                                     e n d   e l s e 
 
                   	 	   i f   ( i n s t r u c = ' c a l l ' )   t h e n             / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C A L L 
 
                     	 	 	   b e g i n 
 
                                   p 1 : = ' ' ;   c o n t i n u e : = f a l s e ;       p 2 : = ' n ' ; 
 
                                     f o r   l : = 2   t o   l e n g t h ( p a r a m e t r o s )   d o 
 
                                         i f ( p a r a m e t r o s [ l ] < > ' ' )   t h e n 
 
                                             i f   c o n t i n u e = f a l s e   t h e n 
 
                                                 p 1 : = p 1 + p a r a m e t r o s [ l ] 
 
                                             e l s e 
 
                                                 p 2 : = ' e ' 
 
                                         e l s e   c o n t i n u e : = t r u e ; 
 
                                     l a b e l 1 . C a p t i o n : = p 1 ; 
 
                                     i f   p 2 = ' e '   t h e n 
 
                                         m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                                     f o r   l : = 0   t o   c o n t E t i k e t a s   d o 
 
                                         i f   e t i k e t a S [ l ] = p 1   t h e n 
 
                                             p 2 : = ' y ' ; 
 
                                     i f   p 2 < > ' y '   t h e n 
 
                                         m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                                     e n d   e l s e 
 
                   	 	   i f   ( i n s t r u c = ' c m p ' )   t h e n     / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C M P 
 
                         	 	 	 b e g i n 
 
                                     p a r a m e t e r : = f a l s e ;   p 1 : = ' ' ; p 2 : = ' ' ; c o n t i n u e : = t r u e ; 
 
                                             f o r   l : = 2   t o   l e n g t h ( p a r a m e t r o s )   d o 
 
                                             b e g i n 
 
                                                 i f   ( ( c o n t i n u e = t r u e )   a n d   ( p a r a m e t e r = f a l s e )   a n d   ( p a r a m e t r o s [ l ] < > '   ' )   a n d   ( p a r a m e t r o s [ l ] < > ' , ' )   a n d   ( p a r a m e t r o s [ l ] < > ' ; ' ) )   t h e n 
 
                                                     p 1 : = p 1 + p a r a m e t r o s [ l ] 
 
                                                 e l s e 
 
                                                     i f ( p a r a m e t r o s [ l ] = ' ; ' )   t h e n 
 
                                                         c o n t i n u e : = f a l s e 
 
                                                     e l s e 
 
                                                         p a r a m e t e r : = t r u e ; 
 
                                                 i f   ( ( c o n t i n u e = t r u e ) a n d ( p a r a m e t e r = t r u e )   a n d   ( p a r a m e t r o s [ l ] < > '   ' )   a n d   ( p a r a m e t r o s [ l ] < > ' , ' ) a n d   ( p a r a m e t r o s [ l ] < > ' ; ' ) )   t h e n 
 
                                                     p 2 : = p 2 + p a r a m e t r o s [ l ] 
 
                                                 e l s e 
 
                                                     i f ( p a r a m e t r o s [ l ] = ' ; ' )   t h e n 
 
                                                         c o n t i n u e : = f a l s e 
 
                                             e n d ; 
 
                                             i f   n o t ( ( ( p 1 [ 1 ]   i n   [ ' a ' , ' b ' , ' c ' , ' d ' ] )   a n d   ( p 1 [ 2 ] = ' x ' ) ) o r   ( p 1 [ 1 ] = ' [ ' ) ) t h e n 
 
                                                 m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) ) ; 
 
 
 
                                             i f   n o t ( ( p 2 [ 1 ]   i n   [ ' 1 ' , ' 2 ' , ' 3 ' , ' 4 ' , ' 5 ' , ' 6 ' , ' 7 ' , ' 8 ' , ' 9 ' , ' 0 ' , ' [ ' , ' a ' , ' b ' , ' c ' , ' d ' ] ) ) t h e n 
 
                                                     m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i ) )   ; 
 
                                             i f   ( p 2 [ 1 ]   i n   [ ' a ' , ' b ' , ' c ' , ' d ' ] )   t h e n 
 
                                                 i f   n o t ( p 2 [ 2 ] = ' x ' )   t h e n 
 
                                                     m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                                     e n d   e l s e 
 
                   	 	   i f   ( i n s t r u c = ' j l ' )   t h e n             / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * J L 
 
                         	 	 	 b e g i n 
 
                                         p 1 : = ' ' ;   c o n t i n u e : = f a l s e ;       p 2 : = ' n ' ; 
 
                                     f o r   l : = 2   t o   l e n g t h ( p a r a m e t r o s )   d o 
 
                                         i f ( p a r a m e t r o s [ l ] < > ' ' )   t h e n 
 
                                             i f   c o n t i n u e = f a l s e   t h e n 
 
                                                 p 1 : = p 1 + p a r a m e t r o s [ l ] 
 
                                             e l s e 
 
                                                 p 2 : = ' e ' 
 
                                         e l s e   c o n t i n u e : = t r u e ; 
 
                                     l a b e l 1 . C a p t i o n : = p 1 ; 
 
                                     i f   p 2 = ' e '   t h e n 
 
                                         m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                                     f o r   l : = 0   t o   c o n t E t i k e t a s   d o 
 
                                         i f   e t i k e t a S [ l ] = p 1   t h e n 
 
                                             p 2 : = ' y ' ; 
 
                                     i f   p 2 < > ' y '   t h e n 
 
                                         m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                                     e n d   e l s e 
 
                           i f   ( i n s t r u c = ' ; ' )   t h e n           / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *   ; 
 
                                     b e g i n   e n d   e l s e 
 
                   	 	   i f   ( i n s t r u c = ' m s g ' )   t h e n     / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * M S G 
 
                       	 	 	   b e g i n 
 
                                         p a r a m e t e r : = f a l s e ;   p 1 : = ' ' ; p 2 : = ' ' ; c o n t i n u e : = t r u e ; 
 
                                             f o r   l : = 2   t o   l e n g t h ( p a r a m e t r o s )   d o 
 
                                             b e g i n 
 
                                                 i f   ( ( c o n t i n u e = t r u e )   a n d   ( p a r a m e t e r = f a l s e )   a n d   ( p a r a m e t r o s [ l ] < > '   ' )   a n d   ( p a r a m e t r o s [ l ] < > ' , ' )   a n d   ( p a r a m e t r o s [ l ] < > ' ; ' ) )   t h e n 
 
                                                     p 1 : = p 1 + p a r a m e t r o s [ l ] 
 
                                                 e l s e 
 
                                                     i f ( p a r a m e t r o s [ l ] = ' ; ' )   t h e n 
 
                                                         c o n t i n u e : = f a l s e 
 
                                                     e l s e 
 
                                                         p a r a m e t e r : = t r u e ; 
 
                                                 i f   ( ( c o n t i n u e = t r u e ) a n d ( p a r a m e t e r = t r u e )   a n d   ( p a r a m e t r o s [ l ] < > '   ' )   a n d   ( p a r a m e t r o s [ l ] < > ' , ' ) a n d   ( p a r a m e t r o s [ l ] < > ' ; ' ) )   t h e n 
 
                                                     p 2 : = p 2 + p a r a m e t r o s [ l ] 
 
                                                 e l s e 
 
                                                     i f ( p a r a m e t r o s [ l ] = ' ; ' )   t h e n 
 
                                                         c o n t i n u e : = f a l s e 
 
                                             e n d ; 
 
                                             i f   n o t ( p 1 [ 1 ]   i n   [ ' a ' , ' b ' , ' c ' , ' d ' , ' e ' , ' f ' , ' g ' , ' h ' , ' i ' , ' j ' , ' k ' , ' l ' , ' m ' , ' n ' , ' o ' , ' p ' , ' q ' , ' r ' , ' s ' , ' t ' , ' u ' , ' v ' , ' w ' , ' x ' , ' y ' , ' z ' ] ) t h e n 
 
                                                 m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) ) ; 
 
                                             i f   n o t ( ( p 2 [ 1 ] = ' " ' ) a n d   ( p 2 [ l e n g t h ( p 2 ) - 1 ] < > ' " ' ) ) t h e n 
 
                                                     m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                                   e n d   e l s e   / / 3 
 
                           / / i f   ( i n s t r u c [ 1 ] = ' ; ' ) t h e n 
 
                               / /     b e g i n   e n d   e l s e 
 
                           e t i k e t a : = t r u e ; 
 
                   	 	   i n s t r u c c i o n : = f a l s e ; i n s t r u c : = ' ' ;   p a r a m e t r o s 2 : = ' ' ; 
 
                   	 	   i f   e t i k e t a   t h e n 
 
                         	 	 	 b e g i n 
 
                           	 	 	   	 f o r   k : = 2   t o   l e n g t h ( p a r a m e t r o s )   d o 
 
                                 	 	 	 	 b e g i n 
 
                                 	 	 	 	 	     i f   ( ( p a r a m e t r o s [ k ] < > '   ' ) a n d   ( i n s t r u c c i o n = f a l s e ) ) t h e n 
 
                                                                     i n s t r u c : = i n s t r u c + p a r a m e t r o s [ k ] 
 
                                                         e l s e 
 
                                                             i n s t r u c c i o n : = t r u e ; 
 
                                       	 	 	 	 	 	   i f   ( ( i n s t r u c c i o n = t r u e ) )   t h e n 
 
                                           	 	 	 	 	 	 	   p a r a m e t r o s 2 : = p a r a m e t r o s 2 + p a r a m e t r o s [ k ] ;         / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                                 	 	 	 	 e n d ; 
 
                                                 p a r a m e t r o s : = p a r a m e t r o s 2 ; 
 
                           i f   ( i n s t r u c = ' a s k ' )   t h e n   / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * A S K 
 
                     b e g i n 
 
                         p a r a m e t e r : = f a l s e ;   p 1 : = ' ' ; p 2 : = ' ' ; c o n t i n u e : = t r u e ; 
 
                                             f o r   l : = 2   t o   l e n g t h ( p a r a m e t r o s )   d o 
 
                                             b e g i n 
 
                                                 i f   ( ( c o n t i n u e = t r u e )   a n d   ( p a r a m e t e r = f a l s e )   a n d   ( p a r a m e t r o s [ l ] < > '   ' )   a n d   ( p a r a m e t r o s [ l ] < > ' , ' )   a n d   ( p a r a m e t r o s [ l ] < > ' ; ' ) )   t h e n 
 
                                                     p 1 : = p 1 + p a r a m e t r o s [ l ] 
 
                                                 e l s e 
 
                                                     i f ( p a r a m e t r o s [ l ] = ' ; ' )   t h e n 
 
                                                         c o n t i n u e : = f a l s e 
 
                                                     e l s e 
 
                                                         p a r a m e t e r : = t r u e ; 
 
                                                 i f   ( ( c o n t i n u e = t r u e ) a n d ( p a r a m e t e r = t r u e )   a n d   ( p a r a m e t r o s [ l ] < > '   ' ) a n d ( p a r a m e t r o s [ l ] < > ' ; ' ) )   t h e n 
 
                                                     p 2 : = p 2 + p a r a m e t r o s [ l ] 
 
                                                 e l s e 
 
                                                     i f ( p a r a m e t r o s [ l ] = ' ; ' )   t h e n 
 
                                                         c o n t i n u e : = f a l s e 
 
                                             e n d ; 
 
                                             i f   n o t ( ( p 1 [ 1 ]   i n   [ ' a ' , ' b ' , ' c ' , ' d ' ] )   a n d   ( p 1 [ 2 ] = ' x ' ) ) t h e n 
 
                                                 m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) ) ; 
 
 
 
                                             i f   ( p 2 < > ' ' )   t h e n 
 
                                                     m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                     e n d   e l s e 
 
                                               i f   ( i n s t r u c = ' m o v ' )   t h e n   / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * M O V E 
 
                                 b e g i n 
 
                                             p a r a m e t e r : = f a l s e ;   p 1 : = ' ' ; p 2 : = ' ' ; c o n t i n u e : = t r u e ; 
 
                                             f o r   l : = 2   t o   l e n g t h ( p a r a m e t r o s )   d o 
 
                                             b e g i n 
 
                                                 i f   ( ( c o n t i n u e = t r u e )   a n d   ( p a r a m e t e r = f a l s e )   a n d   ( p a r a m e t r o s [ l ] < > '   ' )   a n d   ( p a r a m e t r o s [ l ] < > ' , ' )   a n d   ( p a r a m e t r o s [ l ] < > ' ; ' ) )   t h e n 
 
                                                     p 1 : = p 1 + p a r a m e t r o s [ l ] 
 
                                                 e l s e 
 
                                                     i f ( p a r a m e t r o s [ l ] = ' ; ' )   t h e n 
 
                                                         c o n t i n u e : = f a l s e 
 
                                                     e l s e 
 
                                                         p a r a m e t e r : = t r u e ; 
 
                                                 i f   ( ( c o n t i n u e = t r u e ) a n d ( p a r a m e t e r = t r u e )   a n d   ( p a r a m e t r o s [ l ] < > '   ' )   a n d   ( p a r a m e t r o s [ l ] < > ' , ' ) a n d   ( p a r a m e t r o s [ l ] < > ' ; ' ) )   t h e n 
 
                                                     p 2 : = p 2 + p a r a m e t r o s [ l ] 
 
                                                 e l s e 
 
                                                     i f ( p a r a m e t r o s [ l ] = ' ; ' )   t h e n 
 
                                                         c o n t i n u e : = f a l s e 
 
                                             e n d ; 
 
                                             i f   n o t ( ( ( p 1 [ 1 ]   i n   [ ' a ' , ' b ' , ' c ' , ' d ' ] )   a n d   ( p 1 [ 2 ] = ' x ' ) ) o r   ( p 1 [ 1 ] = ' [ ' ) ) t h e n 
 
                                                 m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) ) ; 
 
 
 
                                             i f   n o t ( ( p 2 [ 1 ]   i n   [ ' 1 ' , ' 2 ' , ' 3 ' , ' 4 ' , ' 5 ' , ' 6 ' , ' 7 ' , ' 8 ' , ' 9 ' , ' 0 ' , ' [ ' , ' a ' , ' b ' , ' c ' , ' d ' ] ) ) t h e n 
 
                                                     m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i ) )   ; 
 
                                             i f   ( p 2 [ 1 ]   i n   [ ' a ' , ' b ' , ' c ' , ' d ' ] )   t h e n 
 
                                                 i f   n o t ( p 2 [ 2 ] = ' x ' )   t h e n 
 
                                                     m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                                 e n d   e l s e 
 
                 	 	     i f   ( i n s t r u c = ' j z ' )   t h e n   / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * J Z 
 
                       	 	 	   b e g i n 
 
                                   p 1 : = ' ' ;   c o n t i n u e : = f a l s e ;       p 2 : = ' n ' ; 
 
                                     f o r   l : = 2   t o   l e n g t h ( p a r a m e t r o s )   d o 
 
                                         i f ( p a r a m e t r o s [ l ] < > ' ' )   t h e n 
 
                                             i f   c o n t i n u e = f a l s e   t h e n 
 
                                                 p 1 : = p 1 + p a r a m e t r o s [ l ] 
 
                                             e l s e 
 
                                                 p 2 : = ' e ' 
 
                                         e l s e   c o n t i n u e : = t r u e ; 
 
                                     l a b e l 1 . C a p t i o n : = p 1 ; 
 
                                     i f   p 2 = ' e '   t h e n 
 
                                         m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                                     f o r   l : = 0   t o   c o n t E t i k e t a s   d o 
 
                                         i f   e t i k e t a S [ l ] = p 1   t h e n 
 
                                             p 2 : = ' y ' ; 
 
                                     i f   p 2 < > ' y '   t h e n 
 
                                         m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                                   e n d   e l s e 
 
                   	 	   i f   ( i n s t r u c = ' j c ' )   t h e n               / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * J C 
 
                         	 	 	 b e g i n 
 
                                         p 1 : = ' ' ;   c o n t i n u e : = f a l s e ;       p 2 : = ' n ' ; 
 
                                     f o r   l : = 2   t o   l e n g t h ( p a r a m e t r o s )   d o 
 
                                         i f ( p a r a m e t r o s [ l ] < > ' ' )   t h e n 
 
                                             i f   c o n t i n u e = f a l s e   t h e n 
 
                                                 p 1 : = p 1 + p a r a m e t r o s [ l ] 
 
                                             e l s e 
 
                                                 p 2 : = ' e ' 
 
                                         e l s e   c o n t i n u e : = t r u e ; 
 
                                     l a b e l 1 . C a p t i o n : = p 1 ; 
 
                                     i f   p 2 = ' e '   t h e n 
 
                                         m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                                     f o r   l : = 0   t o   c o n t E t i k e t a s   d o 
 
                                         i f   e t i k e t a S [ l ] = p 1   t h e n 
 
                                             p 2 : = ' y ' ; 
 
                                     i f   p 2 < > ' y '   t h e n 
 
                                         m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                                     e n d   e l s e 
 
                   	 	   i f   ( i n s t r u c = ' j n c ' )   t h e n     / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * J N C 
 
                       	 	 	   b e g i n 
 
                                   p 1 : = ' ' ;   c o n t i n u e : = f a l s e ;       p 2 : = ' n ' ; 
 
                                     f o r   l : = 2   t o   l e n g t h ( p a r a m e t r o s )   d o 
 
                                         i f ( p a r a m e t r o s [ l ] < > ' ' )   t h e n 
 
                                             i f   c o n t i n u e = f a l s e   t h e n 
 
                                                 p 1 : = p 1 + p a r a m e t r o s [ l ] 
 
                                             e l s e 
 
                                                 p 2 : = ' e ' 
 
                                         e l s e   c o n t i n u e : = t r u e ; 
 
                                     i f   p 2 = ' e '   t h e n 
 
                                         m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                                     f o r   l : = 0   t o   c o n t E t i k e t a s   d o 
 
                                         i f   e t i k e t a S [ l ] = p 1   t h e n 
 
                                             p 2 : = ' y ' ; 
 
                                     i f   p 2 < > ' y '   t h e n 
 
                                         m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                                   e n d   e l s e 
 
                 	 	     i f   ( i n s t r u c = ' a d d ' )   t h e n         / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * A D D 
 
                         	 	 	 b e g i n 
 
                                         p a r a m e t e r : = f a l s e ;   p 1 : = ' ' ; p 2 : = ' ' ; c o n t i n u e : = t r u e ; 
 
                                             f o r   l : = 2   t o   l e n g t h ( p a r a m e t r o s )   d o 
 
                                             b e g i n 
 
                                                 i f   ( ( c o n t i n u e = t r u e )   a n d   ( p a r a m e t e r = f a l s e )   a n d   ( p a r a m e t r o s [ l ] < > '   ' )   a n d   ( p a r a m e t r o s [ l ] < > ' , ' )   a n d   ( p a r a m e t r o s [ l ] < > ' ; ' ) )   t h e n 
 
                                                     p 1 : = p 1 + p a r a m e t r o s [ l ] 
 
                                                 e l s e 
 
                                                     i f ( p a r a m e t r o s [ l ] = ' ; ' )   t h e n 
 
                                                         c o n t i n u e : = f a l s e 
 
                                                     e l s e 
 
                                                         p a r a m e t e r : = t r u e ; 
 
                                                 i f   ( ( c o n t i n u e = t r u e ) a n d ( p a r a m e t e r = t r u e )   a n d   ( p a r a m e t r o s [ l ] < > '   ' )   a n d   ( p a r a m e t r o s [ l ] < > ' , ' ) a n d   ( p a r a m e t r o s [ l ] < > ' ; ' ) )   t h e n 
 
                                                     p 2 : = p 2 + p a r a m e t r o s [ l ] 
 
                                                 e l s e 
 
                                                     i f ( p a r a m e t r o s [ l ] = ' ; ' )   t h e n 
 
                                                         c o n t i n u e : = f a l s e 
 
                                             e n d ; 
 
                                             i f   n o t ( ( ( p 1 [ 1 ]   i n   [ ' a ' , ' b ' , ' c ' , ' d ' ] )   a n d   ( p 1 [ 2 ] = ' x ' ) ) o r   ( p 1 [ 1 ] = ' [ ' ) ) t h e n 
 
                                                 m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) ) ; 
 
 
 
                                             i f   n o t ( ( p 2 [ 1 ]   i n   [ ' 1 ' , ' 2 ' , ' 3 ' , ' 4 ' , ' 5 ' , ' 6 ' , ' 7 ' , ' 8 ' , ' 9 ' , ' 0 ' , ' [ ' , ' a ' , ' b ' , ' c ' , ' d ' ] ) ) t h e n 
 
                                                     m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i ) )   ; 
 
                                             i f   ( p 2 [ 1 ]   i n   [ ' a ' , ' b ' , ' c ' , ' d ' ] )   t h e n 
 
                                                 i f   n o t ( p 2 [ 2 ] = ' x ' )   t h e n 
 
                                                     m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                                     e n d   e l s e 
 
                 	 	     i f   ( i n s t r u c = ' j m p ' )   t h e n                     / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * J M P 
 
                         	 	 	 b e g i n 
 
                                     p 1 : = ' ' ;   c o n t i n u e : = f a l s e ;       p 2 : = ' n ' ; 
 
                                     f o r   l : = 2   t o   l e n g t h ( p a r a m e t r o s )   d o 
 
                                         i f ( p a r a m e t r o s [ l ] < > ' ' )   t h e n 
 
                                             i f   c o n t i n u e = f a l s e   t h e n 
 
                                                 p 1 : = p 1 + p a r a m e t r o s [ l ] 
 
                                             e l s e 
 
                                                 p 2 : = ' e ' 
 
                                         e l s e   c o n t i n u e : = t r u e ; 
 
                                     i f   p 2 = ' e '   t h e n 
 
                                         m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                                     f o r   l : = 0   t o   c o n t E t i k e t a s   d o 
 
                                         i f   e t i k e t a S [ l ] = p 1   t h e n 
 
                                             p 2 : = ' y ' ; 
 
                                     i f   p 2 < > ' y '   t h e n 
 
                                         m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                                     e n d   e l s e 
 
               	 	       i f   ( i n s t r u c = ' s u b ' )   t h e n           / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * S U B 
 
                         	 	 	 b e g i n 
 
                                         p a r a m e t e r : = f a l s e ;   p 1 : = ' ' ; p 2 : = ' ' ; c o n t i n u e : = t r u e ; 
 
                                             f o r   l : = 2   t o   l e n g t h ( p a r a m e t r o s )   d o 
 
                                             b e g i n 
 
                                                 i f   ( ( c o n t i n u e = t r u e )   a n d   ( p a r a m e t e r = f a l s e )   a n d   ( p a r a m e t r o s [ l ] < > '   ' )   a n d   ( p a r a m e t r o s [ l ] < > ' , ' )   a n d   ( p a r a m e t r o s [ l ] < > ' ; ' ) )   t h e n 
 
                                                     p 1 : = p 1 + p a r a m e t r o s [ l ] 
 
                                                 e l s e 
 
                                                     i f ( p a r a m e t r o s [ l ] = ' ; ' )   t h e n 
 
                                                         c o n t i n u e : = f a l s e 
 
                                                     e l s e 
 
                                                         p a r a m e t e r : = t r u e ; 
 
                                                 i f   ( ( c o n t i n u e = t r u e ) a n d ( p a r a m e t e r = t r u e )   a n d   ( p a r a m e t r o s [ l ] < > '   ' )   a n d   ( p a r a m e t r o s [ l ] < > ' , ' ) a n d   ( p a r a m e t r o s [ l ] < > ' ; ' ) )   t h e n 
 
                                                     p 2 : = p 2 + p a r a m e t r o s [ l ] 
 
                                                 e l s e 
 
                                                     i f ( p a r a m e t r o s [ l ] = ' ; ' )   t h e n 
 
                                                         c o n t i n u e : = f a l s e 
 
                                             e n d ; 
 
                                             i f   n o t ( ( ( p 1 [ 1 ]   i n   [ ' a ' , ' b ' , ' c ' , ' d ' ] )   a n d   ( p 1 [ 2 ] = ' x ' ) ) o r   ( p 1 [ 1 ] = ' [ ' ) ) t h e n 
 
                                                 m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) ) ; 
 
 
 
                                             i f   n o t ( ( p 2 [ 1 ]   i n   [ ' 1 ' , ' 2 ' , ' 3 ' , ' 4 ' , ' 5 ' , ' 6 ' , ' 7 ' , ' 8 ' , ' 9 ' , ' 0 ' , ' [ ' , ' a ' , ' b ' , ' c ' , ' d ' ] ) ) t h e n 
 
                                                     m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i ) )   ; 
 
                                             i f   ( p 2 [ 1 ]   i n   [ ' a ' , ' b ' , ' c ' , ' d ' ] )   t h e n 
 
                                                 i f   n o t ( p 2 [ 2 ] = ' x ' )   t h e n 
 
                                                     m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                                     e n d   e l s e 
 
                   	 	   i f   ( i n s t r u c = ' i n c ' )   t h e n     / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * I N C 
 
                       	 	 	   b e g i n 
 
                                   p a r a m e t e r : = f a l s e ;   p 1 : = ' ' ; p 2 : = ' ' ; c o n t i n u e : = t r u e ; 
 
                                             f o r   l : = 2   t o   l e n g t h ( p a r a m e t r o s )   d o 
 
                                             b e g i n 
 
                                                 i f   ( ( c o n t i n u e = t r u e )   a n d   ( p a r a m e t e r = f a l s e )   a n d   ( p a r a m e t r o s [ l ] < > '   ' )   a n d   ( p a r a m e t r o s [ l ] < > ' , ' )   a n d   ( p a r a m e t r o s [ l ] < > ' ; ' ) )   t h e n 
 
                                                     p 1 : = p 1 + p a r a m e t r o s [ l ] 
 
                                                 e l s e 
 
                                                     i f ( p a r a m e t r o s [ l ] = ' ; ' )   t h e n 
 
                                                         c o n t i n u e : = f a l s e 
 
                                                     e l s e 
 
                                                         p a r a m e t e r : = t r u e ; 
 
                                                 i f   ( ( c o n t i n u e = t r u e ) a n d ( p a r a m e t e r = t r u e )   a n d   ( p a r a m e t r o s [ l ] < > '   ' ) a n d ( p a r a m e t r o s [ l ] < > ' ; ' ) )   t h e n 
 
                                                     p 2 : = p 2 + p a r a m e t r o s [ l ] 
 
                                                 e l s e 
 
                                                     i f ( p a r a m e t r o s [ l ] = ' ; ' )   t h e n 
 
                                                         c o n t i n u e : = f a l s e 
 
                                             e n d ; 
 
                                             i f   n o t ( ( p 1 [ 1 ]   i n   [ ' a ' , ' b ' , ' c ' , ' d ' ] )   a n d   ( p 1 [ 2 ] = ' x ' ) ) t h e n 
 
                                                 m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) ) ; 
 
 
 
                                             i f   ( p 2 < > ' ' )   t h e n 
 
                                                     m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                                   e n d   e l s e 
 
                   	 	   i f   ( i n s t r u c = ' r e t ' )   t h e n       / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * R E T 
 
                         	 	 	 b e g i n 
 
                                     p 1 : = ' e ' ; 
 
                                     i f   ( p a r a m e t r o s = ' ' ) t h e n 
 
                                         p 1 : = ' y ' ; 
 
                                     i f   ( p 1 = ' e ' ) t h e n 
 
                                         i f ( p a r a m e t r o s [ 2 ] < > ' ; ' )   t h e n 
 
                                             m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) ) ; 
 
                                     e n d   e l s e 
 
                           i f   ( i n s t r u c = ' e n d ' )   t h e n       / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * E N D 
 
                         	 	 	 b e g i n 
 
                                     p 1 : = ' e ' ; 
 
                                     i f   ( p a r a m e t r o s = ' ' ) t h e n 
 
                                         p 1 : = ' y ' ; 
 
                                     i f   ( p 1 = ' e ' ) t h e n 
 
                                         i f ( p a r a m e t r o s [ 2 ] < > ' ; ' )   t h e n 
 
                                             m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) ) ; 
 
                                     e n d   e l s e 
 
                   	 	   i f   ( i n s t r u c = ' c a l l ' )   t h e n             / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C A L L 
 
                     	 	 	   b e g i n 
 
                                   p 1 : = ' ' ;   c o n t i n u e : = f a l s e ;       p 2 : = ' n ' ; 
 
                                     f o r   l : = 2   t o   l e n g t h ( p a r a m e t r o s )   d o 
 
                                         i f ( p a r a m e t r o s [ l ] < > ' ' )   t h e n 
 
                                             i f   c o n t i n u e = f a l s e   t h e n 
 
                                                 p 1 : = p 1 + p a r a m e t r o s [ l ] 
 
                                             e l s e 
 
                                                 p 2 : = ' e ' 
 
                                         e l s e   c o n t i n u e : = t r u e ; 
 
                                     l a b e l 1 . C a p t i o n : = p 1 ; 
 
                                     i f   p 2 = ' e '   t h e n 
 
                                         m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                                     f o r   l : = 0   t o   c o n t E t i k e t a s   d o 
 
                                         i f   e t i k e t a S [ l ] = p 1   t h e n 
 
                                             p 2 : = ' y ' ; 
 
                                     i f   p 2 < > ' y '   t h e n 
 
                                         m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                                     e n d   e l s e 
 
                   	 	   i f   ( i n s t r u c = ' c m p ' )   t h e n     / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * C M P 
 
                         	 	 	 b e g i n 
 
                                     p a r a m e t e r : = f a l s e ;   p 1 : = ' ' ; p 2 : = ' ' ; c o n t i n u e : = t r u e ; 
 
                                             f o r   l : = 2   t o   l e n g t h ( p a r a m e t r o s )   d o 
 
                                             b e g i n 
 
                                                 i f   ( ( c o n t i n u e = t r u e )   a n d   ( p a r a m e t e r = f a l s e )   a n d   ( p a r a m e t r o s [ l ] < > '   ' )   a n d   ( p a r a m e t r o s [ l ] < > ' , ' )   a n d   ( p a r a m e t r o s [ l ] < > ' ; ' ) )   t h e n 
 
                                                     p 1 : = p 1 + p a r a m e t r o s [ l ] 
 
                                                 e l s e 
 
                                                     i f ( p a r a m e t r o s [ l ] = ' ; ' )   t h e n 
 
                                                         c o n t i n u e : = f a l s e 
 
                                                     e l s e 
 
                                                         p a r a m e t e r : = t r u e ; 
 
                                                 i f   ( ( c o n t i n u e = t r u e ) a n d ( p a r a m e t e r = t r u e )   a n d   ( p a r a m e t r o s [ l ] < > '   ' )   a n d   ( p a r a m e t r o s [ l ] < > ' , ' ) a n d   ( p a r a m e t r o s [ l ] < > ' ; ' ) )   t h e n 
 
                                                     p 2 : = p 2 + p a r a m e t r o s [ l ] 
 
                                                 e l s e 
 
                                                     i f ( p a r a m e t r o s [ l ] = ' ; ' )   t h e n 
 
                                                         c o n t i n u e : = f a l s e 
 
                                             e n d ; 
 
                                             i f   n o t ( ( ( p 1 [ 1 ]   i n   [ ' a ' , ' b ' , ' c ' , ' d ' ] )   a n d   ( p 1 [ 2 ] = ' x ' ) ) o r   ( p 1 [ 1 ] = ' [ ' ) ) t h e n 
 
                                                 m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) ) ; 
 
 
 
                                             i f   n o t ( ( p 2 [ 1 ]   i n   [ ' 1 ' , ' 2 ' , ' 3 ' , ' 4 ' , ' 5 ' , ' 6 ' , ' 7 ' , ' 8 ' , ' 9 ' , ' 0 ' , ' [ ' , ' a ' , ' b ' , ' c ' , ' d ' ] ) ) t h e n 
 
                                                     m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i ) )   ; 
 
                                             i f   ( p 2 [ 1 ]   i n   [ ' a ' , ' b ' , ' c ' , ' d ' ] )   t h e n 
 
                                                 i f   n o t ( p 2 [ 2 ] = ' x ' )   t h e n 
 
                                                     m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                                     e n d   e l s e 
 
                   	 	   i f   ( i n s t r u c = ' j l ' )   t h e n             / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * J L 
 
                         	 	 	 b e g i n 
 
                                         p 1 : = ' ' ;   c o n t i n u e : = f a l s e ;       p 2 : = ' n ' ; 
 
                                     f o r   l : = 2   t o   l e n g t h ( p a r a m e t r o s )   d o 
 
                                         i f ( p a r a m e t r o s [ l ] < > ' ' )   t h e n 
 
                                             i f   c o n t i n u e = f a l s e   t h e n 
 
                                                 p 1 : = p 1 + p a r a m e t r o s [ l ] 
 
                                             e l s e 
 
                                                 p 2 : = ' e ' 
 
                                         e l s e   c o n t i n u e : = t r u e ; 
 
                                     l a b e l 1 . C a p t i o n : = p 1 ; 
 
                                     i f   p 2 = ' e '   t h e n 
 
                                         m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                                     f o r   l : = 0   t o   c o n t E t i k e t a s   d o 
 
                                         i f   e t i k e t a S [ l ] = p 1   t h e n 
 
                                             p 2 : = ' y ' ; 
 
                                     i f   p 2 < > ' y '   t h e n 
 
                                         m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                                     e n d   e l s e 
 
                   	 	   i f   ( i n s t r u c = ' m s g ' )   t h e n     / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * M S G 
 
                       	 	 	   b e g i n 
 
                                         p a r a m e t e r : = f a l s e ;   p 1 : = ' ' ; p 2 : = ' ' ; c o n t i n u e : = t r u e ; 
 
                                             f o r   l : = 2   t o   l e n g t h ( p a r a m e t r o s )   d o 
 
                                             b e g i n 
 
                                                 i f   ( ( c o n t i n u e = t r u e )   a n d   ( p a r a m e t e r = f a l s e )   a n d   ( p a r a m e t r o s [ l ] < > '   ' )   a n d   ( p a r a m e t r o s [ l ] < > ' , ' )   a n d   ( p a r a m e t r o s [ l ] < > ' ; ' ) )   t h e n 
 
                                                     p 1 : = p 1 + p a r a m e t r o s [ l ] 
 
                                                 e l s e 
 
                                                     i f ( p a r a m e t r o s [ l ] = ' ; ' )   t h e n 
 
                                                         c o n t i n u e : = f a l s e 
 
                                                     e l s e 
 
                                                         p a r a m e t e r : = t r u e ; 
 
                                                 i f   ( ( c o n t i n u e = t r u e ) a n d ( p a r a m e t e r = t r u e )   a n d   ( p a r a m e t r o s [ l ] < > '   ' )   a n d   ( p a r a m e t r o s [ l ] < > ' , ' ) a n d   ( p a r a m e t r o s [ l ] < > ' ; ' ) )   t h e n 
 
                                                     p 2 : = p 2 + p a r a m e t r o s [ l ] 
 
                                                 e l s e 
 
                                                     i f ( p a r a m e t r o s [ l ] = ' ; ' )   t h e n 
 
                                                         c o n t i n u e : = f a l s e 
 
                                             e n d ; 
 
                                             i f   n o t ( p 1 [ 1 ]   i n   [ ' a ' , ' b ' , ' c ' , ' d ' , ' e ' , ' f ' , ' g ' , ' h ' , ' i ' , ' j ' , ' k ' , ' l ' , ' m ' , ' n ' , ' o ' , ' p ' , ' q ' , ' r ' , ' s ' , ' t ' , ' u ' , ' v ' , ' w ' , ' x ' , ' y ' , ' z ' ] ) t h e n 
 
                                                 m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) ) ; 
 
                                             i f   n o t ( ( p 2 [ 1 ] = ' " ' ) a n d   ( p 2 [ l e n g t h ( p 2 ) - 1 ] < > ' " ' ) ) t h e n 
 
                                                     m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) )   ; 
 
                                                 e n d 
 
                                                   e l s e 
 
                                     	 	 	 	 	 	 m e m o 2 . L i n e s . A d d ( ' E R R O R :   L i n e a   ' + i n t t o s t r ( i + 1 ) ) ; 
 
         e n d ; 
 
     e n d ; 
 
     e n d ; 
 
 e n d 
 
 e l s e 
 
     m e m o 2 . L i n e s . A d d ( ' E R R O R :   f a l t a   o r i g e n >   o r i g ,   o   l a   p o s i c i o n   d o n d e   i n i c i a   e s t a   m a l   i n d i c a d a ' ) ; 
 
 e n d ; 
 
 
 
 p r o c e d u r e   T F o r m 1 . S p e e d B u t t o n 2 C l i c k ( S e n d e r :   T O b j e c t ) ; 
 
 b e g i n 
 
 i f   o p e n D i a l o g 1 . E x e c u t e   t h e n 
 
     m e m o 1 . L i n e s . L o a d F r o m F i l e ( o p e n D i a l o g 1 . F i l e N a m e ) ; 
 
 e n d ; 
 
 
 
 p r o c e d u r e   T F o r m 1 . S p e e d B u t t o n 3 C l i c k ( S e n d e r :   T O b j e c t ) ; 
 
 v a r 
 
 a r : t e x t f i l e ; 
 
 i : i n t e g e r ; 
 
 b e g i n 
 
 i f   s a v e d i a l o g 1 . e x e c u t e   t h e n 
 
         b e g i n 
 
             a s s i g n f i l e ( a r , s a v e d i a l o g 1 . F i l e N a m e + ' O B J . t x t ' ) ; 
 
             r e w r i t e ( a r ) ; 
 
             f o r   i : = 0   t o   m e m o 1 . L i n e s . C o u n t - 1   d o 
 
                 w r i t e l n ( a r , m e m o 1 . L i n e s [ i ] ) ; 
 
             c l o s e f i l e ( a r ) ; 
 
         e n d ; 
 
 e n d ; 
 
 
 
 e n d . 